home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2004 E…tra 100 Bedste Programmer / K-CD_2004_Ekstra_100_Gratis_Programmer.iso / Windows / X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Desktop Icons.xpl < prev    next >
Encoding:
Text File  |  2003-11-28  |  2.8 KB  |  102 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="5"
  4. "UIPATH 1"="Appearance\Desktop\Icons\Visible Icons"
  5. "NAME"="Generic Windows Icons"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.10"
  8. "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
  9. "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
  10. "AUTHOR"="Xteq Systems"
  11. "CONTACTURL"="http://www.xteq.com"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="Thanks to Siegfried Burgstedt for his fix!"
  14. "COMMENT 2"=" "
  15. "COMMENT 3"="from lockergnome.com:
  16. "COMMENT 4"="Adam Rao <adam_rao@hotmail.com>: What exactly is a "Recyle Bin"? :)"
  17. "COMMENT 5"="Pierre Szwarc <szwarc@usa.net>: Its an invisible Recycle Bin (you don't 'C' it) <G>"
  18.  
  19.  
  20. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
  21.  
  22. dim iCurMax
  23. Dim aryItem() 
  24. Dim aryDesc()
  25.  
  26.  
  27. Sub Plugin_Initialize 
  28.  iCurMax=0
  29.  ReDim aryItem(15)
  30.  ReDim aryDesc(15)
  31.  
  32.  Call AddEntry("Recycle Bin", "{645FF040-5081-101B-9F08-00AA002F954E}")
  33.  Call AddEntry("Printer", "{2227A280-3AEA-1069-A2DE-08002B30309D}")
  34.  Call AddEntry("Control Panel", "{21EC2020-3AEA-1069-A2DD-08002B30309D}")
  35.  Call AddEntry("Scheduled Tasks", "{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
  36.  Call AddEntry("Outlook/Inbox", "{00020D75-0000-0000-C000-000000000046}")
  37.  
  38.  Call AddEntry("MSN Icon","{88667D10-10F0-11D0-8150-00AA00BF8457}")
  39.  Call AddEntry("MSN Icon (2.x only)","{00028B00-0000-0000-C000-000000000046}")
  40.  Call AddEntry("AOL Desktop Icon","{955B7B84-5308-419c-8ED8-0B9CA3C56985}")
  41.  
  42.  Call AddEntry("Dial-up and Network","{992CFFA0-F557-101A-88EC-00DD010CCC48}")
  43.  
  44. '{7007ACC7-3202-11D1-AAD2-00805FC1270E} ??? also DialUp?
  45.  
  46.  Call AddEntry("My Bluetooth Places (Widcomm)","{6af09ec9-b429-11d4-a1fb-0090960218cb}")
  47.  
  48.  
  49.  
  50.  for i=0 to iCurMax-1
  51.      s=aryDesc(i)
  52.      Call SetUIElement(i+1,s)
  53.  
  54.      s=sPath & aryItem(i)
  55.      if RegPathExists(s) then 
  56.         Call SetUIElementEx(i+1,true)
  57.      end if
  58.  next 
  59. End Sub
  60.  
  61. Sub AddEntry(Desc,Value)
  62.  aryItem(iCurMax)=Value
  63.  aryDesc(iCurMax)=Desc
  64.  
  65.  iCurMax=iCurMax+1
  66. End Sub
  67.  
  68.  
  69. Sub Plugin_CheckData(ElementIndex)
  70. End Sub
  71.  
  72. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  73.  for i=0 to iCurMax-1
  74.      b=GetUIElementEx(i+1)
  75.      s=sPath & aryItem(i)
  76.  
  77.      if b=true then
  78.         if RegValueExists(s & "\@")=false then 
  79.            Call RegWriteValue(s & "\@","",1)
  80.         end if
  81.      else
  82.         if RegPathExists(s) then
  83.            if RegValueExists(s & "\Removal Message") then
  84.               Call RegDeleteValue(s & "\Removal Message")
  85.            end if
  86.            
  87.            'finally delete the path 
  88.            Call RegDeletePath(s)
  89.        end if
  90.      end if
  91.  next 
  92.  
  93. '' Call IndicateSettingChange()
  94. End Sub
  95.  
  96.  
  97. Sub Plugin_Terminate 
  98. End Sub
  99.  
  100.  
  101.  
  102.